home *** CD-ROM | disk | FTP | other *** search
/ Apple II Magazines (PO) / Nibble Volume 10, No. 11 (1989-11)(MindCraft Publishing)(Side A).zip / Nibble Volume 10, No. 11 (1989-11)(MindCraft Publishing)(Side A).po / APPLE.ORGAN.txt next >
Text File  |  1996-12-24  |  781b  |  27 lines
  1.  ORG $300 ;PAGE 3 USER SPACE
  2. PITCH EQU $7 ;TONE PITCH
  3. KEYBD EQU $C000 ;KEYBOARD LOCATION
  4. STROBE EQU $C010 ;KEYBOARD CLEAR STROBE
  5. SPEAKER EQU $C030 :APPLE SPEAKER ADDRESS
  6. WAIT EQU $FCA8 ;MON WAIT ROUTINE
  7.  LDA #$10 ;INITIALIZE THE PITCH
  8.  STA PITCH
  9. KEYPRESS LDA KEYBD ;GET CURRENT KEY PRESS
  10.  BPL TONE ;NONE PRESSED YET
  11.  CMP #$9B ;ESC TO QUIT?
  12.  BEQ QUIT ; YES, GO QUIT
  13.  CMP #$C1 ;KEY VALUE TO LOW?
  14.  BCC TONE ;YES, SO GO GET ANOTHER
  15.  CMP #$DB ;KEY ASCII > "["?
  16.  BCS TONE ;YES, GO GET ANOTHER KEY
  17.  SEC ;PREPARE FOR SUBTRACTION
  18.  LDA #$DB ; MAKE "Z"=1, "Y"=2, ETC
  19.  SBC KEYBD ;SUBTRACT KEYBOARD VALUE
  20.  STA PITCH ;SAVE AS NEW PITCH
  21. TONE LDA SPEAKER ;CLICK THE SPEAKER
  22.  LDA PITCH ;GET THE PITCH VALUE
  23.  JSR WAIT ;PAUSE A BIT
  24.  JMP KEYPRESS ;GO GET NEXT KEY
  25. QUIT LDA STROBE ;CLEAR KEYBOARD
  26.  RTS
  27.